home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / COMM / BBS / RISCBBS / !RiscBBS / System / Kernel / Defaults next >
Text File  |  1992-02-24  |  457b  |  20 lines
  1. {
  2.  defopt M= `Main Menu` 10 ``
  3.    base S Main
  4.  endopt
  5.  
  6.  defopt != `Goodbye` 10 ``
  7.    pushmenu
  8.    menu Logoff
  9.  endopt
  10.  
  11.  defopt @= `Time travel` 10 ``
  12.    eoln fg 3 send `Travel back howmany days?  : ` fg 1 read V1 3 if "V1"="" send `0` endif
  13.    eoln fg 3 send `Travel back howmany hours? : ` fg 1 read V2 3 if "V2"="" send `0` endif
  14.    eval V0 "V1,V2" u_travel V0
  15.    eoln fg 2 send `Whoooosh... It is now ` fg 6 _lastcl eoln
  16.  endopt
  17.  
  18.  defopt ¤ 10 `` endopt
  19. }
  20.